(load-all-patches)
(compile-file-if-needed (sys:example-file
                         "configuration/macos-application-bundle")
                        :load t)
(deliver (lambda ()
	   (capi:convert-to-screen nil))
         (write-macos-application-bundle (make-pathname :directory '(:relative) :name "Console"))
	 0 :interface :capi
	 )
(quit)
